home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / date-tls.hqx / month and dayofweek XFCN / dayOfWeek.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-02-05  |  604 b   |  34 lines
  1. /*    dayOfWeek.c
  2.     4th February 93
  3.     
  4.     by
  5.     Jerome Chan
  6.     
  7.     This is an XFCN that will return the local dayOfWeek string.
  8.     Thanks to Jon Pugh for _some_ form of code.
  9.     All system calls are found in Inside Mac Vol 1 so I assume it works on all
  10.     systems.
  11. */
  12.  
  13. #include <HyperXCmd.h>
  14. #include <SetupA4.h>
  15. #include <OSUtils.h>
  16. #include <Packages.h>
  17.  
  18. DateTimeRec today ;
  19. Intl1Hndl    database ;
  20.  
  21. pascal main(XCmdPtr paramPtr)    {
  22.  
  23.     RememberA0();
  24.     SetUpA4();
  25.     
  26.     GetTime(&today) ;
  27.  
  28.     database = (Intl1Hndl) IUGetIntl(1) ;
  29.  
  30.     paramPtr->returnValue=PasToZero( paramPtr, (**database).days[today.dayOfWeek-1] ) ;
  31.  
  32.     RestoreA4();
  33.  
  34. }